home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / carminea.bas < prev    next >
BASIC Source File  |  1993-11-30  |  4KB  |  170 lines
  1. 10000 SCREEN@0:SCREEN 0:COLOR 7,0,7,0:CLS
  2. 10010 VIEW (0,0)-(639,479):WINDOW
  3. 10020 CLEAR ,,,,,1024*300:DEF FONT "システム   12ﾄﾞｯﾄ":FBAI=12/16
  4. 10030 '
  5. 10040 DIM G(94,94)
  6. 10050 '
  7. 10060 DIM CHRFU%(132)
  8. 10070 DIM CHR14%(132)
  9. 10080 DIM AHEAD%(132)
  10. 10090 DIM REAR% (132)
  11. 10100 DIM RIGHT%(132)
  12. 10110 DIM LEFT% (132)
  13. 10120 DIM RIGHTKAN%(132)
  14. 10130 DIM LEFTKAN%(132)
  15. 10140 '
  16. 10150 LOAD@ "CD\CHRFU.DAT",CHRFU%
  17. 10160 LOAD@ "CD\CHR14.DAT",CHR14%
  18. 10170 LOAD@ "CD\AHEAD.DAT",AHEAD%
  19. 10180 LOAD@ "CD\REAR.DAT" ,REAR%
  20. 10190 LOAD@ "CD\RIGHT.DAT",RIGHT%
  21. 10200 LOAD@ "CD\LEFT.DAT",LEFT%
  22. 10210 LOAD@ "CD\RIGHTKAN.DAT",RIGHTKAN%
  23. 10220 LOAD@ "CD\LEFTKAN.DAT",LEFTKAN%
  24. 10230 '
  25. 10240 DIM NA$(12)
  26. 10250 DIM SEIBETU(12)
  27. 10260 DIM MHP(12)
  28. 10270 DIM HP(12)
  29. 10280 DIM MMP(12)
  30. 10290 DIM MP(12)
  31. 10300 DIM KIY(12)
  32. 10310 DIM BIN(12)
  33. 10320 DIM KIN(12)
  34. 10330 DIM SEIM(12)
  35. 10340 DIM TIR(12)
  36. 10350 DIM SEIS(12)
  37. 10360 DIM IID(12,12)
  38. 10370 DIM AID(12)
  39. 10380 DIM TI(12)
  40. 10390 '
  41. 10400 DIM INA$(100)
  42. 10410 DIM IKIY(100)
  43. 10420 DIM IKIN(100)
  44. 10430 DIM IBIN(100)
  45. 10440 DIM ITI(100)
  46. 10450 DIM IART(100)
  47. 10460 '
  48. 10470 DIM ANA$(50)
  49. 10480 DIM ASEIM(50)
  50. 10490 '
  51. 10500 DIM ENA$ (24)
  52. 10510 DIM ESEIBETU(24)
  53. 10520 DIM EMHP (24)
  54. 10530 DIM EHP  (24)
  55. 10540 DIM EMMP (24)
  56. 10550 DIM EMP  (24)
  57. 10560 DIM EKIY (24)
  58. 10570 DIM EBIN (24)
  59. 10580 DIM EKIN (24)
  60. 10590 DIM ESEIM(24)
  61. 10600 DIM ETIR (24)
  62. 10610 DIM ESEIS(24)
  63. 10620 DIM EIID11(24)
  64. 10630 DIM EIID12(24)
  65. 10640 DIM EIID13(24)
  66. 10650 DIM EIID14(24)
  67. 10660 DIM EIID15(24)
  68. 10670 DIM EIID16(24)
  69. 10680 DIM EIID17(24)
  70. 10690 DIM EIID18(24)
  71. 10700 DIM EIID21(24)
  72. 10710 DIM EIID22(24)
  73. 10720 DIM EIID23(24)
  74. 10730 DIM EIID24(24)
  75. 10740 DIM EIID25(24)
  76. 10750 DIM EIID26(24)
  77. 10760 DIM EIID27(24)
  78. 10770 DIM EIID28(24)
  79. 10780 DIM EIID3(24)
  80. 10790 DIM EIID4(24)
  81. 10800 DIM EIID5(24)
  82. 10810 DIM EIID6(24)
  83. 10820 DIM EIID7(24)
  84. 10830 DIM EIID8(24)
  85. 10840 DIM EIID9(24)
  86. 10850 DIM EIID_10(24)
  87. 10860 DIM EIID_11(24)
  88. 10870 DIM EIID_12(24)
  89. 10880 DIM EAID (24)
  90. 10890 '
  91. 10900 DIM DEAD(12)
  92. 10910 '
  93. 10920 DIM MEI(12)
  94. 10930 DIM KAI(12)
  95. 10940 DIM DAG(12)
  96. 10950 DIM DOU(12)
  97. 10960 '
  98. 10970 DIM KIYEXP(12)
  99. 10980 DIM BINEXP(12)
  100. 10990 DIM KINEXP(12)
  101. 11000 DIM SEIMEXP(12)
  102. 11010 DIM TIREXP(12)
  103. 11020 DIM SEISEXP(12)
  104. 11030 DIM MHPEXP(12)
  105. 11040 DIM MMPEXP(12)
  106. 11050 '
  107. 11060 WINC=1
  108. 11070 WAKUNAI_C=2
  109. 11080 KASORU_C=15
  110. 11090 DC=15
  111. 11100 '
  112. 11110 WA=7
  113. 11120 MESSEGE_WA=100
  114. 11130 '
  115. 11140 ENCPER=25
  116. 11150 '
  117. 11160 SCR(1)=0
  118. 11170 SCR(2)=1
  119. 11180 SCR(3)=0
  120. 11190 '
  121. 11200 CNO=1
  122. 11210 PENEMY_NO=7
  123. 11220 KOUSHOU_NO=7
  124. 11230 ATAERU_INO=1
  125. 11240 HAZUSU_NO=2
  126. 11250 '
  127. 11260 CAMP_NO=1
  128. 11270 CAMPITEM_INO=1
  129. 11280 ITIGAE_NO=2
  130. 11290 STATUSCHR_NO=1
  131. 11300 '
  132. 11310 COMMAND_NO=1
  133. 11320 WONENEMY_NO=7
  134. 11330 WONITEM_INO=1
  135. 11340 SUTERUITEM_INO=1
  136. 11350 DUMMYV=1
  137. 11360 '
  138. 11370 CON_WX       =16 :CON_WY       =293
  139. 11380 CWINX        =40 :CWINY        =50
  140. 11390 EWINX        =60 :EWINY        =70
  141. 11400 TWINX        =24 :TWINY        =190
  142. 11410 KOUSHOU_WX   =60 :KOUSHOU_WY   =70
  143. 11420 ATAERU_WX    =80 :ATAERU_WY    =90
  144. 11430 HAZUSU_WX    =100:HAZUSU_WY    =110
  145. 11440 NITAKU_WX    =440:NITAKU_WY    =50
  146. 11450 SANTAKU_WX   =460:SANTAKU_WY   =70
  147. 11460 '
  148. 11470 CAMP_WX        =40 :CAMP_WY        =50
  149. 11480 CAMPITEM_WX    =60 :CAMPITEM_WY    =70
  150. 11490 ITIGAE_WX      =80 :ITIGAE_WY      =90
  151. 11500 STATUSCHR_WX   =100:STATUSCHR_WY   =110
  152. 11510 WAIT_WX        =120:WAIT_WY        =130
  153. 11520 MESSEGE_WAIT_WX=140:MESSEGE_WAIT_WY=150
  154. 11530 '
  155. 11540 STATUS_WX    =168:STATUS_WY    =14
  156. 11550 '
  157. 11560 COMMAND_WX   =50 :COMMAND_WY   =60
  158. 11570 WONENEMY_WX  =70 :WONENEMY_WY  =80
  159. 11580 WONITEM_WX   =90 :WONITEM_WY   =100
  160. 11590 SUTERUITEM_WX=110:SUTERUITEM_WY=120
  161. 11600 '
  162. 11610 PSYM_X=245:PSYM_Y=453
  163. 11620 ESYM_X=245:ESYM_Y=2
  164. 11630 '
  165. 11640 PLAYER_SENTOURYOKU_X=180:PLAYER_SENTOURYOKU_Y=463
  166. 11650 ENEMY_SENTOURYOKU_X =180:ENEMY_SENTOURYOKU_Y =12
  167. 11660 '
  168. 11670 MARK_X=308:MARK_Y=337
  169. 11680 CHAIN "DATASET.BAS",,ALL
  170.